home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / AVOGADRO / CHEMISTRY / WAVEFUNCTION / !WaveFunc / !Run < prev    next >
Text File  |  1996-07-02  |  996b  |  33 lines
  1. | > !WaveFunc.!Run
  2. |
  3. | Run File for Wavefunction Display
  4. | 
  5. | by Chris Johnson
  6. |
  7. RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions
  8. |
  9. If "<WaveFunc$Running>" = "yes" Then Error WaveFunc is already running
  10. IconSprites <Obey$Dir>.!Sprites
  11. |
  12. | Find path to file
  13. Set WaveFunc$Dir <Obey$Dir>
  14. |
  15. set temp$flag 1
  16. RMEnsure ABCLibrary 0 set temp$flag 0
  17. RMensure ABCLibrary 4.00 if "<temp$flag>" = "1" Then Error 0 Old ABCLib installed Else RMLoad <Obey$Dir>.ABCLib
  18. RMensure ABCLibrary 4.00 Error You need the ABClibrary ver 4.00 or later installed
  19. |
  20. set temp$flag 1
  21. RMEnsure CJWimpUtil 0 set temp$flag 0
  22. RMEnsure CJWimpUtil 0.18 if "<temp$flag>" = "1" Then Error 0 Old CJWimpUtil module installed Else RMLoad <Obey$Dir>.cjWimpUtil
  23. RMEnsure CJWimpUtil 0.18 Error You need the CJWimpUtil module (0.18 or later) installed
  24. unset temp$flag
  25. |
  26. | Check memory allocation
  27. WimpSlot -min 64K -max 64K
  28. |
  29. |
  30. |
  31. | Now start program
  32. Run <WaveFunc$Dir>.!RunImage
  33.